10 POKE56,48:POKE55,0:CLR 20 DV=PEEK(186):IFDV<8THENDV=8 30 SYS57812"CHESS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493 40 SYS57812"CHESS SPRITES",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493 50 PRINT"[147]";:POKE53280,0 60 POKE53281,10:POKE646,0:POKE53272,31:GOSUB870 70 : 80 REM TITLE SCREEN 90 : 100 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"; 110 PRINT"[221] [221]"; 120 PRINT"[221] [176][192][192][192][174] [221]"; 130 PRINT"[221] [221] [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174] [221]"; 140 PRINT"[221] [173][192][192][192][189] [221] [221] [221] [221] [221]"; 150 PRINT"[221] [176][192][192][192][174] [221] [221] [221] [221] [221]"; 160 PRINT"[221] [221] [221] [221] [221] [221] [221] [221]"; 170 PRINT"[221] [173][192][192][192][189] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] [221]"; 180 PRINT"[221] [176][192][192][192][174] [221] [221] [221] [221] [221]"; 190 PRINT"[221] [171][192][178][192][189] [221] [221] [221] [221] [221]"; 200 PRINT"[221] [189] [173][192][189] [221] [221] [221] [221] [221]"; 210 PRINT"[221] [176][192][174] [176] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] [221]"; 220 PRINT"[221] [221] [221] [221] [221] [221] [221] [221] [221]"; 230 PRINT"[221] [189] [173][192][189] [221] [221] [221] [221] [221]"; 240 PRINT"[221] [176][192][192][192][174] [221] [221] [221] [221] [221]"; 250 PRINT"[221] [171][192][192] [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189] [221]"; 260 PRINT"[221] [173][192][192][192][189] [221]"; 270 PRINT"[221] [176][192][192][192][174] [221]"; 280 PRINT"[221] [171][192][178][192][189] [221]"; 290 PRINT"[221] [189] [173][192][189] [221]"; 300 PRINT"[221] [176][192][178][192][174][174] [176][176][192][192][174] [174] [176][189] [178] [176][192][174] [176][176][192][192][174] [221]"; 310 PRINT"[221] [221] [171][192][192][179][171][192][192] [171][192][179] [221] [221] [221] [221][221] [176][174] [221]"; 320 PRINT"[221] [177] [189] [173][173][192][192][189] [189] [173][174] [177] [189] [173][192][189][173][192][192][189] [221]"; 330 PRINT"[221] [221]"; 340 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"; 342 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT 350 GOSUB940 352 TQ=0:POKE53370,0 354 TQ=TQ+1:GETA$:IFA$=""ANDTQ<200THEN354 356 POKE53371,0 358 POKEV+21,0 360 : 370 REM INSTRUCTION SCREEN 380 : 390 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"; 400 PRINT"[221] [221]"; 410 PRINT"[221] [201]N 1922, THE FAMOUS [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174] [221]"; 420 PRINT"[221] PUZZLER [200] [197] [196]UDENEY [221] [221] [221] [221] [221]"; 430 PRINT"[221] PROPOSED THIS CHESS [221] [221] [221] [221] [221]"; 440 PRINT"[221] PUZZLE SHOWN ON THE [221] [221] [221] [221] [221]"; 450 PRINT"[221] BOARD AT THE RIGHT: [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] [221]"; 460 PRINT"[221] [221] [221] [221] [221] [221]"; 470 PRINT"[221] [205]OVE THE WHITE KING[144] [221] [221] [221] [221] [221]"; 480 PRINT"[221] IN THE UPPER RIGHT[144] [221] [221] [221] [221] [221]"; 490 PRINT"[221] CORNER TO THE LOWER[144] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179] [221]"; 500 PRINT"[221] LEFT CORNER WITH IT[144] [221] [221] [221] [221] [221]"; 510 PRINT"[221] NEVER ENTERING THE[144] [221] [221] [221] [221] [221]"; 520 PRINT"[221] CENTER SQUARE.[144] [221] [221] [221] [221] [221]"; 530 PRINT"[221] [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189] [221]"; 540 PRINT"[221] [208]AWNS CANNOT MOVE. [193]LL OTHER PIECES[144] [221]"; 550 PRINT"[221] MOVE ONLY WITHIN THE 3X3 CHESSBOARD.[144] [221]"; 560 PRINT"[221] [221]"; 570 PRINT"[221] [208]RESS (1) TO PURSUE THE CHESS PUZZLE [221]"; 580 PRINT"[221] WITHOUT ASSISTANCE AND (2) TO VIEW A [221]"; 590 PRINT"[221] COMPUTER DEMONSTRATION OF ONE WAY TO [221]"; 600 PRINT"[221] SOLVE THE CHESS PUZZLE. [207]PTION? [221]"; 610 PRINT"[221] [221]"; 620 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"; 630 PRINT" [157][148] ";:GOSUB1000 632 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT 640 : 650 REM INPUT OPTION 660 : 670 P=1899:GOSUB800:POKE198,0 680 POKE204,0:POKE207,0 690 GETA$:IFA$<"1"ORA$>"2"THEN680 700 A=VAL(A$) 710 PRINT"[147]";:POKE204,1:POKE1020,A:POKEV+21,0:POKE53281,0 720 : 730 REM LOAD MAIN PROGRAM 740 : 750 PRINT"[147][146] LOAD"CHR$(34)"KING.MAIN"CHR$(34)","DV:PRINT"" 760 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:END 770 : 780 REM CURSOR POSITIONING SUBROUTINE 790 : 800 PRINT"";:P=P-1024:PY=INT(P/40):PX=P-40*PY 810 IFPYTHENFORPP=1TOPY:PRINT"";:NEXT 820 IFPXTHENFORPP=1TOPX:PRINT"";:NEXT 830 P=P+1024:RETURN 840 : 850 REM SPRITE CREATION SUBROUTINE 860 : 870 V=53248 880 POKE2040,192:POKE2041,193:POKE2042,194:POKE2043,195 890 POKE2044,195:POKE2045,196:POKE2046,196:POKE2047,196 900 FORI=39TO45STEP2:POKEV+I,1:POKEV+I+1,0:NEXT:RETURN 910 : 920 REM ACTIVATE TITLE SPRITES 930 : 940 POKEV,236:POKEV+1,84:POKEV+2,236:POKEV+3,116:POKEV+4,236:POKEV+5,148 950 POKEV+6,196:POKEV+7,148:POKEV+8,196:POKEV+9,116:POKEV+10,196:POKEV+11,84 960 POKEV+12,156:POKEV+13,84:POKEV+14,156:POKEV+15,116:POKEV+21,255:RETURN 970 : 980 REM ACTIVATE INSTRUCTION SPRITES 990 : 1000 POKEV,36:POKEV+1,76:POKEV+2,36:POKEV+3,108:POKEV+4,36:POKEV+5,140 1010 POKEV+6,252:POKEV+7,140:POKEV+8,252:POKEV+9,108:POKEV+10,252:POKEV+11,76 1020 POKEV+12,212:POKEV+13,76:POKEV+14,212:POKEV+15,108:POKEV+16,7:POKEV+21,255 1030 RETURN 10000 D=PEEK(186):N$="KING PUZZLE":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END